(backup-buffer-copy): Fully revert change. Sigh.

diff --git a/lisp/files.el b/lisp/files.el
index 84aa78b4a521239f1cb0bca9cec7b1a13cebf4f8..69ebf460781878ca170276e95216b07273786b46 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -3120,9 +3120,7 @@ BACKUPNAME is the backup file name, which is the old file renamed."
            (file-error nil))))))
 
 (defun backup-buffer-copy (from-name to-name modes)
-  (let ((umask (default-file-modes))
-       (dir (or (file-name-directory to-name)
-                default-directory)))
+  (let ((umask (default-file-modes)))
     (unwind-protect
        (progn
          ;; Create temp files with strict access rights.  It's easy to